home *** CD-ROM | disk | FTP | other *** search
/ STraTOS 1997 April & May / STraTOS 1 - 1997 April & May.iso / CD01 / PRGMANIA / @FALCON / VISUAL41 / SOURCE41 / DOTS / DOTS.OBJ < prev    next >
Encoding:
Text File  |  1997-01-12  |  7.3 KB  |  254 lines
  1.  DATA
  2. objet_application:    dc.b %00001000        ; FLAGS
  3.         dc.b 0            ; STATUS
  4.         dc.l 0            ; TSR_SIZE
  5.         dc.l name_app        ; REG_NAME
  6.         dc.l name_menu        ; ACC_NAME
  7.         dc.l dots_rsc_16        ; RSC_INFO
  8.         dc.l objet_fenetre_fond        ; BACKGROUND_WIND_PTR
  9.         dc.l structure_menu_principal    ; MAIN_MENU_PTR
  10.         dc.l 0            ; ALL_ICON_PTR
  11.         dcb.w 10,0            ; M1FLAG,M1X,M1Y,M1W,M1H,M2FLAG,M2X,M2Y,M2W,M2H
  12.         dc.l 0            ; COUNT (TIMER)
  13.         dc.l custom_inits        ; CUSTOM_INITS
  14.         dc.l acc_open        ; AC_OPEN
  15.         dc.l acc_close        ; AC_CLOSE
  16.         dc.l app_term        ; AP_TERM
  17.         dc.l 0            ; AP_TFAIL
  18.         dc.l 0            ; SHUT_COMPLETED
  19.         dc.l 0            ; RESCH_COMPLETED
  20.         dc.l 0            ; AP_DRAG_DROP
  21.         dc.l 0            ; SH_WDRAW
  22.         dc.l 0            ; CH_EXIT
  23.         dc.l 0            ; ALL_OTHER
  24.         dc.l 0            ; EVNT_KEYBD
  25.         dc.l 0            ; EVNT_BUTTON
  26.         dc.l 0            ; EVNT_MOUSE1
  27.         dc.l 0            ; EVNT_MOUSE2
  28.         dc.l event_timer_dots        ; EVNT_TIMER
  29.  
  30. structure_menu_principal:
  31.         dc.w MENU_PRINCIPAL    ; MENU_STRUCT_INDEX
  32.         dc.l 0        ; MENU_STRUCT_PTR
  33.         dc.w 0        ; MENU_STRUCT_SCROLL_INDEX
  34.         dc.l 0        ; MENU_STRUCT_LIST_ATTACH_PTR
  35.  
  36.         dc.w MNU_DESK_INFO,$00*256+'i'-'a'+1; MENU_STRUCT_START_LIST
  37.         dc.l menu_info
  38.         dc.w MNU_FILE_OPEN,$00*256+'o'-'a'+1
  39.         dc.l menu_open
  40.         dc.w MNU_FILE_QUIT,$00*256+'q'-'a'+1
  41.         dc.l menu_quit
  42.  
  43.         dc.w -1
  44.     
  45. name_app:        dc.b 'DOTS    ',0
  46. name_menu:        dc.b '  Dots  ',0
  47.     ifnd OPT_FULL_PATHNAMES
  48. dots_rsc_16:    dc.b 'dots.rsc',0
  49.     else
  50. dots_rsc_16:    dc.b 'd:\assemble\sources.v41\dots\dots.rsc',0
  51.     endc
  52.  even
  53.  
  54.     ;-------------------------------------------
  55.  
  56. objet_fenetre1:    dc.l 0            ; FATHER_PTR
  57.         dc.l 0            ; NEXT_BROTHER_PTR
  58.         dc.l 0            ; FIRST_SON_PTR
  59.         dc.w %0000000000001111        ; FLAGS
  60.         dc.w 0            ; STATUS
  61.         dc.w %0000001100000000        ; PROPERTIES
  62.         dc.w 0            ; TOPABLE_STATE
  63.         dc.l window1_name,0        ; NAME,INFO
  64.         dc.l 0            ; ICON_WIND_PTR
  65.         dc.l 0            ; MENU_SPEC_PTR
  66.         dc.w 0            ; MENU_HEIGHT
  67.         dc.l 0            ; KEY_TABLE
  68.         dc.w -1,0            ; FOCUSED_OBJECT,FOCUSED_OBJ_CURSOR_POS
  69.  
  70.         dc.w GWVA_WIN_H_CENTER,GWVA_WIN_V_CENTER    ; FIRST_DX,FIRST_DY
  71.         dc.w 0,0            ; FIRST_W,FIRST_H
  72.         dc.w 0,0            ; INTERNAL_MAX_W,INTERNAL_MAX_H
  73.  
  74.         dc.w -1            ; GEM_HANDLE
  75.         dcb.w 4,0            ; INTERNAL_DX,INTERNAL_DY,INTERNAL_W,INTERNAL_H
  76.         dc.w 10,10,10,10        ; SLIDER_V_POS,SLIDER_V_SIZE,SLIDER_H_POS,SLIDER_H_SIZE
  77.         dcb.w 2,0            ; CONTENTS_DX,CONTENTS_DY
  78.  
  79.         dc.w GWVA_WIND_TYPE_FORM    ; TYPE
  80.         dc.l window1_specs        ; SPEC_PTR
  81.         dcb.l 2,0            ; USER_PTR1,USER_PTR2
  82.  
  83.         dc.w -1            ; START_EVNT_LIST
  84.  
  85. window1_specs:    dc.w FORM_CHOIX_OBJ        ; FORM_IDX
  86.         dc.l 0            ; FORM_PTR
  87.         dc.l 0            ; CLICK_ROUTINE
  88.         dcb.w 6,0            ; L_SCULPT,T_SCULPT,R_SCULPT,B_SCULPT,W_SCULPT,H_SCULPT
  89.         dc.w 0            ; IS_CLONE_FORM
  90.         dc.l 0            ; CLONE_FORM_SAVE
  91.         dc.l 0            ; CLONE_MAIN_PTR
  92.  
  93.         dc.w FCHX_BTON_OK        ; obj idx
  94.         dc.w $08*256+'o'        ; shortcut(0=no)
  95.         dc.w GWVA_FORM_WIND_OBJECT_BUTTON
  96.         dc.l struct_bton_ok        ; ptr struct
  97.  
  98.         dc.w FCHX_BTON_CANCEL        ; obj idx
  99.         dc.w $08*256+'a'        ; shortcut(0=no)
  100.         dc.w GWVA_FORM_WIND_OBJECT_BUTTON
  101.         dc.l struct_bton_annule        ; ptr struct
  102.  
  103.         dc.w FCHX_RBTON_FTH        ; obj idx
  104.         dc.w 0            ; shortcut(0=no)
  105.         dc.w GWVA_FORM_WIND_OBJECT_RADIO_BUTTON
  106.         dc.l struct_radio_choix_obj    ; ptr struct
  107.  
  108.         dc.w -1
  109.  
  110. struct_bton_ok:    dc.w 0            ; STATE
  111.         dc.w GWVA_EVNT_CLICK        ; START_EVNT_LIST
  112.         dc.l wind1_bton_ok_click
  113.         dc.w -1
  114.  
  115. struct_bton_annule:    dc.w 0            ; STATE
  116.         dc.w GWVA_EVNT_CLICK        ; START_EVNT_LIST
  117.         dc.l wind1_bton_annule_click
  118.         dc.w -1
  119.  
  120. struct_radio_choix_obj:    dc.w FCHX_RBTON_SPH        ; SELECTION
  121.         dc.l 0            ; CHANGE_ROUTINE
  122.  
  123.  
  124. window1_name:    dc.b 'Formulaire de configuration',0
  125.  even
  126.     *----------------------------------*
  127.  
  128. objet_fenetre2:    dc.l 0            ; FATHER_PTR
  129.         dc.l 0            ; NEXT_BROTHER_PTR
  130.         dc.l 0            ; FIRST_SON_PTR
  131.         dc.w %0000111111111111        ; FLAGS
  132.         dc.w 0            ; STATUS
  133.         dc.w %0001001100000000        ; PROPERTIES
  134.         dc.w 0            ; TOPABLE_STATE
  135.         dc.l window2_name,GWVA_APP_OBJ_COPYRIGHT_MESSAGE    ; NAME,INFO
  136.         dc.l 0            ; ICON_WIND_PTR
  137.         dc.l 0            ; MENU_SPEC_PTR
  138.         dc.w 0            ; MENU_HEIGHT
  139.         dc.l 0            ; KEY_TABLE
  140.         dc.w -1,0            ; FOCUSED_OBJECT,FOCUSED_OBJ_CURSOR_POS
  141.  
  142.         dc.w GWVA_WIN_H_CENTER,GWVA_WIN_V_CENTER    ; FIRST_DX,FIRST_DY
  143.         dc.w 320,200        ; FIRST_W,FIRST_H
  144.         dc.w 0,0            ; INTERNAL_MAX_W,INTERNAL_MAX_H
  145.  
  146.         dc.w -1            ; GEM_HANDLE
  147.         dcb.w 4,0            ; INTERNAL_DX,INTERNAL_DY,INTERNAL_W,INTERNAL_H
  148.         dc.w 1,1000,1,1000        ; SLIDER_V_POS,SLIDER_V_SIZE,SLIDER_H_POS,SLIDER_H_SIZE
  149.  
  150.         dcb.w 2,0            ; CONTENTS_DX,CONTENTS_DY
  151.  
  152.         dc.w GWVA_WIND_TYPE_BITMAP    ; TYPE
  153.         dc.l spec_wind2_bitmap        ; SPEC_PTR
  154.         dcb.l 2,0            ; USER_PTR1,USER_PTR2
  155.  
  156.         dc.w WM_AFTER+WM_CLOSED
  157.         dc.l close_fenetre
  158.         dc.w WM_BEFORE+WM_GWVA_NEWIND
  159.         dc.l initialisation_fenetre
  160.         dc.w -1            ; START_EVNT_LIST
  161.  
  162. spec_wind2_bitmap:    dc.w 320,200        ; IMG_WIDTH,IMG_HEIGHT
  163.         dc.l 0            ; DATA_PTR
  164.         dc.l 0            ; PAL_PTR
  165.         dc.w 4            ; NBR_BITPLANES
  166.         dc.w 0,0            ; AFF_DX, AFF_DY
  167.  
  168. window2_name:    dc.b ' DSP-Dots ',0
  169.  even
  170.  
  171.     ;-------------------------------------------
  172.  
  173. objet_fenetre3:    dc.l 0            ; FATHER_PTR
  174.         dc.l 0            ; NEXT_BROTHER_PTR
  175.         dc.l 0            ; FIRST_SON_PTR
  176.         dc.w %0000000000001111        ; FLAGS
  177.         dc.w 0            ; STATUS
  178.         dc.w %0000001100000000        ; PROPERTIES
  179.         dc.w 0            ; TOPABLE_STATE
  180.         dc.l GWVA_APP_OBJ_COPYRIGHT_MESSAGE,0    ; NAME,INFO
  181.         dc.l 0            ; ICON_WIND_PTR
  182.         dc.l 0            ; MENU_SPEC_PTR
  183.         dc.w 0            ; MENU_HEIGHT
  184.         dc.l 0            ; KEY_TABLE
  185.         dc.w -1,0            ; FOCUSED_OBJECT,FOCUSED_OBJ_CURSOR_POS
  186.  
  187.         dc.w GWVA_WIN_H_CENTER,GWVA_WIN_V_CENTER    ; FIRST_DX,FIRST_DY
  188.         dc.w 0,0            ; FIRST_W,FIRST_H
  189.         dc.w 0,0            ; INTERNAL_MAX_W,INTERNAL_MAX_H
  190.  
  191.         dc.w -1            ; GEM_HANDLE
  192.         dcb.w 4,0            ; INTERNAL_DX,INTERNAL_DY,INTERNAL_W,INTERNAL_H
  193.         dc.w 10,10,10,10        ; SLIDER_V_POS,SLIDER_V_SIZE,SLIDER_H_POS,SLIDER_H_SIZE
  194.         dcb.w 2,0            ; CONTENTS_DX, CONTENTS_DY
  195.  
  196.         dc.w GWVA_WIND_TYPE_FORM    ; TYPE
  197.         dc.l window3_specs        ; SPEC_PTR
  198.         dcb.l 2,0            ; USER_PTR1,USER_PTR2
  199.  
  200.         dc.w -1            ; START_EVNT_LIST
  201.  
  202. window3_specs:    dc.w FORM_INFORMATION        ; FORM_IDX
  203.         dc.l 0            ; FORM_PTR
  204.         dc.l 0            ; CLICK_ROUTINE
  205.         dcb.w 6,0            ; L_SCULPT,T_SCULPT,R_SCULPT,B_SCULPT,W_SCULPT,H_SCULPT
  206.         dc.w 0            ; IS_CLONE_FORM
  207.         dc.l 0            ; CLONE_FORM_SAVE
  208.         dc.l 0            ; CLONE_MAIN_PTR
  209.  
  210. *--------------------------------------------------------------------------*
  211.  
  212. objet_fenetre_fond:    dc.l 0            ; FATHER_PTR
  213.         dc.l 0            ; NEXT_BROTHER_PTR
  214.         dc.l 0            ; FIRST_SON_PTR
  215.         dc.w %0000000000011111        ; FLAGS
  216.         dc.w 0            ; STATUS
  217.         dc.w %0000001100000000        ; PROPERTIES
  218.         dc.w 0            ; TOPABLE_STATE
  219.         dc.l fenetre_fond_name,GWVA_APP_OBJ_COPYRIGHT_MESSAGE    ; NAME,INFO
  220.         dc.l 0            ; ICON_WIND_PTR
  221.         dc.l structure_menu_principal    ; MENU_SPEC_PTR
  222.         dc.w 0            ; MENU_HEIGHT
  223.         dc.l 0            ; KEY_TABLE
  224.         dc.w -1,0            ; FOCUSED_OBJECT,FOCUSED_OBJ_CURSOR_POS
  225.  
  226.         dc.w GWVA_WIN_H_CENTER,GWVA_WIN_V_CENTER    ; FIRST_DX,FIRST_DY
  227.         dc.w 0,0            ; FIRST_W,FIRST_H
  228.         dc.w 0,0            ; INTERNAL_MAX_W,INTERNAL_MAX_H
  229.  
  230.         dc.w -1            ; GEM_HANDLE
  231.         dcb.w 4,0            ; INTERNAL_DX,INTERNAL_DY,INTERNAL_W,INTERNAL_H
  232.         dc.w 10,10,10,10        ; SLIDER_V_POS,SLIDER_V_SIZE,SLIDER_H_POS,SLIDER_H_SIZE
  233.         dcb.w 2,0            ; CONTENTS_DX,CONTENTS_DY
  234.  
  235.         dc.w GWVA_WIND_TYPE_FORM    ; TYPE
  236.         dc.l fenetre_fond_specs        ; SPEC_PTR
  237.         dcb.l 2,0            ; USER_PTR1,USER_PTR2
  238.  
  239.         dc.w -1
  240.  
  241. fenetre_fond_specs:    dc.w FORM_BACKGROUND        ; FORM_IDX
  242.         dc.l 0            ; FORM_PTR
  243.         dc.l 0            ; CLICK_ROUTINE
  244.         dcb.w 6,0            ; L_SCULPT,T_SCULPT,R_SCULPT,B_SCULPT,W_SCULPT,H_SCULPT
  245.         dc.w 0            ; IS_CLONE_FORM
  246.         dc.l 0            ; CLONE_FORM_SAVE
  247.         dc.l 0            ; CLONE_MAIN_PTR
  248.  
  249.         dc.w -1            ; START_OBJ_LIST
  250.  
  251. fenetre_fond_name:    dc.b 'Menu principal ...',0
  252.  even
  253.  
  254.